[peso,salida]=max(etiquetasalida);
acierto=0;
conf=zeros(long,long);
escritor=1;
cont=0;
for d=1:length(salida)
    if salida(d)==escritor
        acierto=acierto+1;
        conf(escritor,salida(d))=conf(escritor,salida(d))+1;
    else
        conf(escritor,salida(d))=conf(escritor,salida(d))+1;
    end
    cont=cont+1;
    if cont==5
        cont=0;
        escritor=escritor+1;
    end
end
acierto=acierto/length(salida)*100;
disp(['El acierto es: ',num2str(acierto),'%'])
